home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / zbpc_460.zip / GRAPHICS.EXE / CGA5.BAS next >
BASIC Source File  |  1991-03-18  |  768b  |  19 lines
  1. MODE 5: FG = 1 : BO = 1 : CIRCLE 900,100,50
  2. "Display"
  3. PRINT@(0,7)"Foreground","Background","Border"
  4. PRINT@(0,9)FG,BG,BO: CIRCLE 100,600,50
  5. PRINT@(0,11)"F to increase","G to increase","B to inc"
  6. PRINT@(0,12)"f to decrease","g to decrease","b to dec"
  7. PRINT@(9,14)"Spacebar to exit"
  8. "Keycheck"
  9. X$ = INKEY$ : IF X$="" GOTO "Keycheck"
  10. IF X$ = "F" FG = FG + 1 : IF FG > 4 FG = 0
  11. IF X$ = "f" FG = FG - 1 : IF FG < 0 FG = 3
  12. IF X$ = "G" BG = BG + 1 : IF BG > 1 BG = 0
  13. IF X$ = "g" BG = BG - 1 : IF BG < 0 BG = 1
  14. IF X$ = "B" BO = BO + 1 : IF BO > 31 BO = 0
  15. IF X$ = "b" BO = BO - 1 : IF BO < 0 BO = 31
  16. IF X$ = " " MODE 3 : END=256
  17. COLORFG,BG,BO : GOTO "Display"
  18.  
  19.